home *** CD-ROM | disk | FTP | other *** search
- | PCATS 16bpp runner for MPEG
- | Chris Marshall
- | 16 April 1993
-
- Run <Obey$Dir>.StoreMode
-
- | Set wimp mode to 120, change to 122 if desired
- WimpMode 120
-
- | If you're PCATS card has a turbo board, and flakes
- | out at 36MHz, uncomment and alter the following line
- | to wind the clock up a bit. You need a 40MHz crystal
- | ideally
- | Clock 4
-
- | Set palette to red scale
- PalSet 1
-
- | Thunderbirds are go!
- Run <MPEG$Dir>.mpeg_play %*0
-
- | Go back to origial mode
- | (Alias$ used because WimpMode doesn't expect to
- | receive an expression as a parameter)
- SetEval Alias$pcatstmode "WimpMode <Current$Mode>"
- pcatstmode
- Unset pcatstmode
-
- | Reset palette to default.
- | Tough luck if your old one was different
- PalSet 0
-
- | Switch PCATS card out of 16bpp DAC mode. This should
- | happen on a mode change but some cards are dodgy
- NormalVideo
-
- | Dispense with "Press SPACE etc etc"
- Desktop
-